﻿Public Class FullSet
    ' Class that contains information about an entire set of gear that has been calculated.
    ' So, we need names of items, total stats, enchants, and gems.

    Public items() As Item
    Public gems(,) As Gem
    Public totalStats(0 To 8) As Double
    Public totalScore As Double
    Public metaGem As GemSet.metaGems
    Public headEnch As CalcManager.Enchants
    Public shoulderEnch As CalcManager.Enchants
    Public backEnch As CalcManager.Enchants
    Public chestEnch As CalcManager.Enchants
    Public wristEnch As CalcManager.Enchants
    Public handEnch As CalcManager.Enchants
    Public legEnch As CalcManager.Enchants
    Public footEnch As CalcManager.Enchants
    Public finger1Ench As CalcManager.Enchants
    Public finger2Ench As CalcManager.Enchants
    Public meleeHitPercent As Integer
    Public spellHitPercent As Integer
    Public dodgeChance As Double
    Public Expertise As Integer

    Public Sub New(ByVal numPieces)
        Try
            ReDim items(0 To numPieces - 1)
            ReDim gems(0 To numPieces - 1, 0 To 2)
        Catch ex As Threading.ThreadAbortException
        Catch ex As Exception
            MessageBox.Show("An unexpected error has occurred. DK Optimize will exit.", "DK Optimize", MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1)
            ErrLogWriter.writeLog(ex)
            End
        End Try
    End Sub

End Class
